separate code

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 62b80a0a5ac07236a2a92a91ad09722bb9447289..877111653bc4a495f85f5e8a34306a6ad739f370 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -121,6 +121,9 @@ LIMPLE basic block.")
   (type nil
         :documentation "When non nil is used for type propagation."))
 
+\f
+;;; Limplification pass specific code.
+
 (cl-defstruct (comp-limplify (:copier nil))
   "Support structure used during limplification."
   (sp 0 :type 'fixnum
@@ -659,6 +662,9 @@ the annotation emission."
       (cl-prettyprint (comp-func-ir func)))
     func))
 
+\f
+;;; Entry points.
+
 (defun native-compile (fun)
   "FUN is the function definition to be compiled into native code."
   (if-let ((f (symbol-function fun)))